home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / pixel page (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.0 KB  |  39 lines
  1. 3 ifa>.then160
  2. 4 print"[147]"
  3. 7 goto100
  4. 8 :
  5. 10 sys 828
  6. 20 poke198,0:wait198,1
  7. 30 poke53265,peek(53265)and223
  8. 40 poke53270,peek(53270)and239
  9. 50 poke53272,21
  10. 55 print"[147]"
  11. 60 goto63000
  12. 70 :
  13. 80 :
  14. 90 :
  15. 100 v=53248:s=54272
  16. 110 pokev+32,.:pokev+33,.:print"          [204][207][193][196][211][212][193][210] [206]umber 10"
  17. 120 print"[158]     [212]ime to 'tickle the ivories'."
  18. 157 print"    [195]over designed by [202]ohn [199]ardner "
  19. 158 print"        using the [203]oala [208]ad."
  20. 159 print"[156]   [194]ased upon an idea from [202]im [199]anz."
  21. 160 ifa=.thenprint"[158][204]oading [208]icture":a=1:load"pixel.pic",8,1
  22. 166 ifa=1thena=2:load"unpack.ml300",8,1
  23. 170 s=54272:fori=.to23:pokes+i,0:next:pokes+24,15:pokes+5,255:pokes+6,255
  24. 175 pokes+12,255:pokes+13,255:pokes+19,255:pokes+20,255:pokes+1,3:pokes+8,3
  25. 177 pokes+15,3:pokes+7,7:pokes+14,18
  26. 180 print"[145][156][146][153][208]ress space bar to view cover."
  27. 182 print"[208]ress it again to return to menu."
  28. 185 poke198,0:wait198,1
  29. 190 pokes+4,17:pokes+11,17:pokes+18,17:goto10
  30. 200 :
  31. 300 :
  32. 63000 rem   return back to menu
  33. 63010 pokes+4,16:pokes+11,16:pokes+18,16:poke56,160:clr:poke53281,0
  34. 63020 poke53280,0
  35. 63025 printchr$(14)
  36. 63030 print"[147][204]aunching [212]able of [195]ontents";
  37. 63035 print"[144]load"chr$(34)"hello"chr$(34)",8":print"run"
  38. 63040 poke631,13:poke632,13:poke198,2:end
  39.